library FRMLIB;


uses
  SysUtils,
  Classes,
  MyForm  in 'MyForm.pas' {Form1};

Procedure ShowDLLForm; export; stdcall;
begin
  if Form1=nil then
      Form1:=TForm1.Create(nil);
 Form1.Show();
end;

Procedure CloseDLLForm; export; stdcall;
begin
   if Form1<>nil then
           Form1.Free();
end;

exports
   ShowDLLForm index 1,
   CloseDLLForm index 2;

begin
end.
